home *** CD-ROM | disk | FTP | other *** search
/ Complete Guide to Dogs / Complete Guide to Dogs (1997)(SoftKey)[Mac-PC].iso / pc / compsv32 / scripts.lib / POSSERVE.SCR < prev    next >
Text File  |  1996-09-23  |  1KB  |  61 lines
  1. !
  2. !  Copyright (c) 1996
  3. !  by CompuServe Incorporated, Columbus, Ohio
  4. !
  5. !  The information in this software is subject to change without
  6. !  notice and should not be construed as a commitment by CompuServe.
  7. !
  8. !  Pos-Serve:
  9. !    Connect to Pos-Serve
  10. !    Success:  returns %Success
  11. !    Failure:  saves error msg in %FailureMsg and returns %Failure
  12. !
  13. !+V
  14. ! "3.9.1"
  15. !-V
  16.  
  17. show "Connecting to HANJIN-NET";
  18.  
  19. Tries = 5;
  20. on cancel goto Return_Cancel;
  21.  
  22. Wait_PosServe:
  23.  
  24.     if Tries = 0 goto PosServe_Failure;
  25.     Tries = Tries - 1;
  26.  
  27.      wait
  28.         ": Q ]"        goto Send_CNS,
  29.         %mdm_Failure    goto PosServe_Failure
  30.     until 80;
  31.  
  32.     goto Wait_PosServe;
  33.  
  34. Wait2_PosServe:
  35.  
  36.     if Tries = 0 goto PosServe_Failure;
  37.     Tries = Tries - 1;
  38.  
  39.     wait
  40.         "Name:"        goto Return_Success,
  41.         %mdm_Failure    goto PosServe_Failure
  42.     until 80;
  43.  
  44.     goto Wait_PosServe;
  45.  
  46. Send_CNS:
  47.     wait until 5;
  48.     show "Sending HANJIN-NET address...";
  49.     send "cns" & %CR;
  50.     goto Wait2_PosServe;
  51.  
  52. PosServe_Failure:
  53.     define %FailureMsg = "HANJIN-NET not responding";
  54.     exit %Failure;
  55.  
  56. Return_Cancel:
  57.     exit %Cancel;
  58.  
  59. Return_Success:
  60.     exit %Success;
  61.